10 PRINT"[147]":IFA=0THENA=1:PRINT"[155]  LOADING...":LOAD"DOS WINDOW.OBJ",8,1
20 CLR:DIM T(4):A$=CHR$(157)+CHR$(157)+CHR$(157):N$="DOS-WINDOW"
30 PRINTCHR$(147)SPC(134)N$:PRINTSPC(43)"WANT TO SET THE T.O.D. CLOCK ? Y";
40 PRINT A$;:INPUT B$:IFB$<>"Y"THEN80
50 PRINT:INPUT"  HOURS    [157][157][157][157][157]";T(1):IFT(1)>12THENPRINT"[145][145][145]":GOTO50
60 INPUT"MINUTES    [157][157][157][157]";T(2):IFT(2)>59THENPRINT"[145][145][145]":GOTO60
70 INPUT"SECONDS    [157][157][157][157]";T(3):IFT(3)>59THENPRINT"[145][145][145]":GOTO70
80 FORI=1TO3:H=INT(T(I)/10):L=T(I)-10*H:T(I)=16*H+L:NEXT
90 C=56587:POKEC+4,PEEK(C+4)AND127
100 FORI=0TO3:POKEC-I,T(I+1):NEXT
110 PRINT"1.TO USE "N$", PRESS CTRL-D.":PRINT
120 PRINT"2.PRESS RETURN AT THE "CHR$(18)"STATUS:"CHR$(146)" LINE, TO"
130 PRINTSPC(2)"CLOSE WINDOW AND RETURN."
140 PRINT"3.TO DEACTIVATE, PRESS RUN/STOP-RESTORE."
150 PRINT"4.SYS 51808, TO REACTIVATE.":SYS51808:NEW